return "Drag to slider 'handle' to enable control of video play time. Requires additional 'extent' member which limits the handle travel range." & RETURN & "PARAMETERS:" & RETURN & "ò Video Sprite - Enter the number of sprite channel in which video is displayed." & RETURN & "ò Extent Sprite - Enter the number of sprite channel that contains the 'extent' sprite." & RETURN & "ò Hilite Member - Member to display while handle is being dragged." & RETURN & "ò Horizontal - If set, orient extent sprite horizontally, if not set orient vertically." & RETURN & "ò Dynamic - If set, video time will be updated while handle is dragged, else when handle is released."
end
on compute_val me
-- relies on tracking to update the currentScreenVal (different for Hor, Vert)
set val = 0.0
set val = float(the currentScreenVal of me) / float (the extentlength of me)
set val = val * the valrange of me
set val = val + the min of me
return val
end
on send_the_val me, val
-- sets the digital video time to the val * paramter {0 - movieduration}
set pMovieTime = val * pDuration
set the movieTime of sprite VideoSprite to pMovieTime
end
on beginSprite me
set pDuration = the duration of sprite VideoSprite
set the min of me = 0.0
set the max of me = 1.0
set the sending of me = true
--
set handle = the spritenum of me
set the tracking of me = FALSE
set the newLocH of me = the locH of sprite handle
set the newLocV of me = the locV of sprite handle
if the horizontal of me then
set the newLocV of me = the locV of sprite the extentSprite of me
set the minScreen of me = the left of sprite the extentSprite of me
set the maxScreen of me = the right of sprite the extentSprite of me
else -- vertical slider
set the newLocH of me = the locH of sprite the extentSprite of me
set the minScreen of me = the left of sprite the extentSprite of me
set the maxScreen of me = the right of sprite the extentSprite of me
end if
puppetsprite handle, TRUE -- take this out when beginSpriteAutoPuppet fixed
set the locH of sprite handle to the newLocH of me
set the locV of sprite handle to the newLocV of me
set the valrange of me = the max of me - the min of me
set the extentlength of me = the maxScreen of me - the minScreen of me
if the sending of me = FALSE then -- check for wrong input (dyn true, send false)
set the dynamic of me = FALSE
end if
-- set CurrentVal = compute_val()
end
on prepareFrame me
-- limits motion of handle to extents of extentSprite
-- and locks the handle to the track of the extentSprite
if tracking then
set handle = the spriteNum of me
set extent = the extentSprite of me
if the horizontal of me then
set the newLocH of me = the mouseH
set the newLocV of me = the locV of sprite extent
if the newLocH of me < the left of sprite extent then
set the newLocH of me = the left of sprite extent
end if
if the newLocH of me > the right of sprite extent then
set the newLocH of me = the right of sprite extent
end if
set the currentScreenVal of me = the newLocH of me - the minScreen of me
else -- vertical slider
set the newLocH of me = the locH of sprite extent
set the newLocV of me = the mouseV
if the newLocV of me < the top of sprite extent then
set the newLocV of me = the top of sprite extent
end if
if the newLocV of me > the bottom of sprite extent then
set the newLocV of me = the bottom of sprite extent
end if
set the currentScreenVal of me = the newLocV of me - the minScreen of me
end if -- if vertical
set the locH of sprite handle to the newLocH of me
set the locV of sprite handle to the newLocV of me
if the dynamic of me then
send_the_val me, compute_val (me)
end if
else -- end if tracking, control slider position by movieTime
set x = float(the movieTime of sprite VideoSprite)/ float(pDuration)
set handle = the spriteNum of me
set extent = the extentSprite of me
if the horizontal of me then
set ScreenX = the left of sprite extent + (x * (the right of sprite extent - the left of sprite extent))
set the newLocH of me = screenX
set the newLocV of me = the locV of sprite extent
if the newLocH of me < the left of sprite extent then
set the newLocH of me = the left of sprite extent
end if
if the newLocH of me > the right of sprite extent then
set the newLocH of me = the right of sprite extent
end if
set the currentScreenVal of me = the newLocH of me - the minScreen of me
else -- vertical slider
set ScreenY = the top of sprite extent + (x * (the bottom of sprite extent - the top of sprite extent))
set the newLocH of me = the locH of sprite extent
set the newLocV of me = ScreenY
if the newLocV of me < the top of sprite extent then
set the newLocV of me = the top of sprite extent
end if
if the newLocV of me > the bottom of sprite extent then
set the newLocV of me = the bottom of sprite extent
end if
set the currentScreenVal of me = the newLocV of me - the minScreen of me
end if -- if vertical
set the locH of sprite handle to the newLocH of me
set the locV of sprite handle to the newLocV of me
end if
end
on mouseDown me
set tracking = TRUE
set temp = the member of sprite the spritenum of me
set the member of sprite the spritenum of me = member the hiliteMember of me
set the hiliteMember of me = temp
end
on mouseUp me
set tracking = FALSE
set temp = the member of sprite the spritenum of me
set the member of sprite the spritenum of me = member the hiliteMember of me
set the hiliteMember of me = temp
if the sending of me then
set x = compute_val (me)
send_the_val me, x
end if
end
on mouseUpOutside me
set tracking = FALSE
set temp = the member of sprite the spritenum of me
set the member of sprite the spritenum of me = member the hiliteMember of me
